home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / biblio / tib / tibabb < prev    next >
Text File  |  1989-03-28  |  573b  |  25 lines
  1. #! /bin/csh -f
  2. #
  3. #  tibabb --  look up a journal and find the tib abbreviation for it 
  4. #
  5. #  Usage:  tibabb  < keys >...
  6. #
  7. #  Note: this is case sensitive if there is more than one word in the keys
  8. #
  9. if ($#argv == 1 && "$1" == -usage) then
  10.   echo " Usage:  tibabb < keys > ..."
  11.   exit 0
  12. endif
  13. switch ($#argv)
  14.   case 0:
  15.     echo " Usage:  tibabb < keys > ..."
  16.     exit 1
  17.   case 1:
  18.     grep -i -h $1 /usr/lib/tex/tib/mac/*{abb,fll}.ttz|more
  19.     breaksw
  20.   default:
  21.     set arg = `echo $* | sed 's, ,/ \&\& /,g'`
  22.     awk "/$arg/" /usr/lib/tex/tib/mac/*{abb,fll}.ttz|more
  23. endsw
  24.  
  25.